home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / gt_power / mailbats.zip / MAILDIST.BAT < prev    next >
DOS Batch File  |  1990-12-11  |  2KB  |  48 lines
  1. :MAILDIST.BAT - BATCH FILE TO DISTRIBUTE INCOMING MAIL
  2. ECHO OFF
  3. GTCD>NUL
  4. ECHO  ╒═════════════════════════════════════════════════════╕ 
  5. ECHO  │                 INITIATING MAIL DIST                │ 
  6. ECHO  ╘═════════════════════════════════════════════════════╛ 
  7. @TRACE DISTRIBUTING MAIL FOR MAIL-%1 //%GTPATH%\GTMAIL.LOG >NUL
  8. IF "%1" == "" GOTO NO_PARM
  9. GOTO PARM_OK
  10. :NO_PARM
  11. ECHO  REQUIRED Parameter not specified
  12. ECHO 
  13. ECHO           Usage is MAILDIST XXX
  14. ECHO                 where  XXX is a 3 character log identifier
  15. ECHO           seven optional parameters may also be passed
  16. ECHO  
  17. ECHO           Your imput was: MAILDIST %1
  18. ECHO 
  19. GOTO QUIT
  20. :PARM_OK
  21. CD\MAILIN
  22. IF EXIST G0*.* GOTO IS_MAIL
  23. IF EXIST B0*.* GOTO IS_MAIL
  24. IF EXIST E*.E* GOTO IS_MAIL
  25. IF EXIST Q*.E* GOTO IS_MAIL
  26. ECHO 
  27. ECHO  There is NO mail to unbag in \MAILIN
  28. ECHO 
  29. GOTO QUIT
  30. :IS_MAIL
  31. ECHO  ╒═════════════════════════════════════════════════════╕ 
  32. ECHO  │  DISTRIBUTING INCOMING MAIL FOR NETMAIL MAIL-%1    │ 
  33. ECHO  ╘═════════════════════════════════════════════════════╛ 
  34. ECHO 
  35. CONCOPY %GTPATH%\MAIL-%1.LOG MDIST412 /D7 /SA
  36. ECHO 
  37. BE ASK "Do you want to run LOG update?" yn def=y timeout=5
  38. IF ERRORLEVEL=2 GOTO ALL_DONE
  39. TRACE .....Mail distribution complete //%GTPATH%\MAIL-%1.LOG >NUL
  40. DUPS
  41. TRACE .....Removing duplicate msgs //%GTPATH%\MAIL-%1.LOG >NUL
  42. ECHO  ╒═════════════════════════════════════════════════════╕ 
  43. ECHO  │      MAIL DISTRIBUTION COMPLETE FOR MAIL-%1        │ 
  44. ECHO  ╘═════════════════════════════════════════════════════╛ 
  45. @TRACE .....Completing mail distribution //%GTPATH%\GTMAIL.LOG >NUL
  46. :QUIT
  47. :ALL_DONE
  48.